home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ WinMessenger 9.xpl < prev    next >
Text File  |  2002-01-10  |  2KB  |  59 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="3"
  3. "COUNT"="2"
  4. "UIPATH"="Internet\Instant Messaging\Windows Messenger\Appearance"
  5. "NAME"="Logo Image"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="1.01"
  8. "TEXT 1"="MSN Messenger"
  9. "TEXT 2"="Windows Messenger"
  10. "DATA 1"="GIF Images (*.gif)|*.gif|All Files (*.*)|*.*"
  11. "DATA 2"="GIF Images (*.gif)|*.gif|All Files (*.*)|*.*"
  12. "DESCRIPTION 1"="Here you can change the logo used by Windows Messenger and MSN Messenger (4.5 and above) in the About dialog. The first option is for MSN Messenger on Windows 95/98/Me/NT/2000, the second option is for Windows Messenger on Windows XP."
  13. "DESCRIPTION 2"="NOTE: The image must be 237x50 pixels in size, and in the GIF format."
  14. "DESCRIPTION 3"="Windows Messenger may be obtained at http://messenger.msn.com/"
  15. "AUTHOR"="Xteq Systems (Neil R. Turner)"
  16. "CONTACTURL"="http://www.xteq.com/"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"=""
  19.  
  20. sP="HKLM\Software\Microsoft\MessengerService\InstallationDirectory"
  21.  
  22. Sub Plugin_Initialize
  23.  i=RegValueExists(sP)
  24.  if i=false then
  25.   Call Disable()
  26.  end if
  27. End Sub
  28.  
  29. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  30.  t=RegReadValue(sP)
  31.  s=GetUIElement(1)
  32.  if len(s)>0 then ' don't do anything unless user has typed something
  33.   ' Before we make any changes, backup the file!
  34.   Call FileBackup(t & "\logo.gif")
  35.  
  36.   ' OK, let's go!
  37.   Call FileDelete(t & "\logo.gif")
  38.   Call FileCopy(s,t & "\logo.gif")
  39.  end if
  40.  
  41.  t=RegReadValue(sP)
  42.  s=GetUIElement(2)
  43.  if len(s)>0 then ' don't do anything unless user has typed something
  44.   ' Before we make any changes, backup the file!
  45.   Call FileBackup(t & "\logowin.gif")
  46.  
  47.   ' OK, let's go!
  48.   Call FileDelete(t & "\logowin.gif")
  49.   Call FileCopy(s,t & "\logowin.gif")
  50.  end if
  51. End Sub
  52.  
  53.  
  54. Sub Plugin_Terminate 
  55. End Sub
  56.  
  57.  
  58.  
  59.